; ORIGINAL: 3dt2.1/examples/nomouse.scm
; $Id: nomouse.scm,v 1.3 1996/10/21 15:59:21 aed Exp $
;- nomouse.scm -----------------------------------------------------
; Unset mouse down hook
;------------------------------------------------------------------
(set! mouse-down-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset mouse up hook
;------------------------------------------------------------------
(set! mouse-up-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset rubber band end hook
;------------------------------------------------------------------
(set! rb-end-hook '())



;- nomouse.scm -----------------------------------------------------
; Unset rubber band init hook
;------------------------------------------------------------------
(set! rb-init-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset rubber band repaint hook
;------------------------------------------------------------------
(set! rb-repaint-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset rubber band start hook
;------------------------------------------------------------------
(set! rb-start-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset rubber band stop hook
;------------------------------------------------------------------
(set! rb-stop-hook '())


;- nomouse.scm -----------------------------------------------------
; Unset rubber band update hook
;------------------------------------------------------------------
(set! rb-update-hook '())

